home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / c / mc302emb.zip / LIBCF / RAND.ASM < prev    next >
Assembly Source File  |  1994-03-18  |  259b  |  12 lines
  1. *
  2. * Generate a pseudo-random number: int rand(limit)
  3. *
  4. rand    LD    RANDSEED    Get current seed
  5.     MUL    #13709        First calculation
  6.     ADD    #13849        Second calculation
  7.     ST    RANDSEED    Resave seed
  8.     DIV    2,S        Limit with division
  9.     ALT            Get remainder
  10.     RET
  11. $DD:RANDSEED 2
  12.